inherited FTipoMovimentoEstoque: TFTipoMovimentoEstoque
  Left = 285
  Top = 98
  Caption = 'Tipo Movimento Estoque'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'TIPMOVEST_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIPMOVEST_DESCRICAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIPOMOVEST_ABREVIACAO'
            Width = 100
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label3: TLabel [0]
          Left = 134
          Top = 97
          Width = 56
          Height = 16
          Caption = 'Opera'#231#227'o'
        end
        object Label2: TLabel [1]
          Left = 79
          Top = 49
          Width = 58
          Height = 16
          Caption = 'Descri'#231#227'o'
          FocusControl = DBEDescricao
        end
        object Label1: TLabel [2]
          Left = 5
          Top = 49
          Width = 40
          Height = 16
          Caption = 'Codigo'
        end
        object Label4: TLabel [3]
          Left = 235
          Top = 97
          Width = 35
          Height = 16
          Caption = 'Grupo'
        end
        object Label5: TLabel [4]
          Left = 275
          Top = 97
          Width = 39
          Height = 16
          Caption = 'Ordem'
        end
        object Label6: TLabel [5]
          Left = 7
          Top = 97
          Width = 63
          Height = 16
          Caption = 'Abrevia'#231#227'o'
        end
        inherited panel2: TPanel
          inherited BtnFechar: TBitBtn
            Left = 518
          end
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
        end
        object GroupBox1: TGroupBox
          Tag = 4
          Left = 4
          Top = 142
          Width = 456
          Height = 219
          Caption = '  Indica'#231#227'o  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
          object DBCheckBox1: TDBCheckBox
            Left = 11
            Top = 23
            Width = 67
            Height = 21
            Caption = 'Pedido'
            DataField = 'TIPMOVEST_INFPEDIDO'
            DataSource = dsCadastro
            TabOrder = 0
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox2: TDBCheckBox
            Tag = 4
            Left = 11
            Top = 47
            Width = 254
            Height = 21
            Caption = 'Informar o Fornecedor'
            DataField = 'TIPMOVEST_INFFORNECEDOR'
            DataSource = dsCadastro
            TabOrder = 1
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox3: TDBCheckBox
            Tag = 4
            Left = 11
            Top = 71
            Width = 97
            Height = 21
            Caption = 'Documento'
            DataField = 'TIPMOVEST_INFDOCUMENTO'
            DataSource = dsCadastro
            TabOrder = 2
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox4: TDBCheckBox
            Tag = 4
            Left = 11
            Top = 95
            Width = 178
            Height = 21
            Caption = 'Informar o Valor de Custo'
            DataField = 'TIPMOVEST_INFVALOR'
            DataSource = dsCadastro
            TabOrder = 3
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox5: TDBCheckBox
            Tag = 4
            Left = 11
            Top = 119
            Width = 221
            Height = 21
            Caption = 'Informar a Ordem de Servi'#231'o'
            DataField = 'TIPMOVEST_INFOS'
            DataSource = dsCadastro
            TabOrder = 4
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox6: TDBCheckBox
            Tag = 4
            Left = 11
            Top = 143
            Width = 173
            Height = 21
            Caption = 'Informar Centro de Custo'
            DataField = 'TIPMOVEST_INFCENTROCUSTO'
            DataSource = dsCadastro
            TabOrder = 5
            ValueChecked = 'True'
            ValueUnchecked = 'False'
            OnEnter = DBCheckBox6Enter
          end
          object DBCheckBox7: TDBCheckBox
            Left = 11
            Top = 167
            Width = 149
            Height = 21
            Caption = 'Valor Compra/Venda'
            DataField = 'TIPMOVEST_ALTERA_VALOR_COM_VEN'
            DataSource = dsCadastro
            TabOrder = 6
            ValueChecked = 'True'
            ValueUnchecked = 'False'
            OnEnter = DBCheckBox6Enter
          end
          object DBCheckBox8: TDBCheckBox
            Tag = 4
            Left = 11
            Top = 191
            Width = 294
            Height = 21
            Caption = 'Permitir incluir em "Lan'#231'amento Estoque"  '
            DataField = 'TIPOMOVEST_INFDIGITACAO'
            DataSource = dsCadastro
            TabOrder = 7
            ValueChecked = 'True'
            ValueUnchecked = 'False'
            OnEnter = DBCheckBox6Enter
          end
        end
        object DBEDescricao: TDBEdit
          Left = 79
          Top = 69
          Width = 386
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'TIPMOVEST_DESCRICAO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 4
          OnExit = DBEDescricaoExit
        end
        object edCodigo: TDBEdit
          Left = 6
          Top = 69
          Width = 56
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'TIPMOVEST_CODIGO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 3
        end
        object edAbreviacao: TDBEdit
          Left = 7
          Top = 116
          Width = 120
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'TIPOMOVEST_ABREVIACAO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 5
          OnExit = DBEDescricaoExit
        end
        object DBCBOperacao: TDBComboBox
          Left = 134
          Top = 116
          Width = 88
          Height = 24
          Ctl3D = False
          DataField = 'TIPMOVEST_ENTRADASAIDA'
          DataSource = dsCadastro
          ItemHeight = 16
          ParentCtl3D = False
          TabOrder = 6
          OnEnter = DBCBOperacaoEnter
          OnExit = DBCBOperacaoExit
          OnKeyPress = DBCBOperacaoKeyPress
        end
        object DBEGrupo: TDBEdit
          Left = 235
          Top = 116
          Width = 22
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'TIPMOVEST_GRUPO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 9
        end
        object edOrdem: TDBEdit
          Left = 275
          Top = 116
          Width = 22
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'TIPOMOVEST_ORDEM_PROC'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 8
          OnKeyPress = edOrdemKeyPress
        end
        object GroupBox2: TGroupBox
          Left = 470
          Top = 48
          Width = 367
          Height = 369
          Caption = '  Permiss'#227'o de Usu'#225'rios  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 7
          object Label7: TLabel
            Left = 16
            Top = 328
            Width = 209
            Height = 16
            Caption = 'F10 - Permiss'#227'o Concedida/Negada'
          end
          object DBGrid1: TDBGrid
            Left = 14
            Top = 24
            Width = 339
            Height = 297
            DataSource = dsExibeTipoMovEstUsuario
            Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            PopupMenu = PopupMenu2
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = 'Arial'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'USU_NOME'
                Width = 200
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PERMISSAO'
                Width = 100
                Visible = True
              end>
          end
        end
        object DBRadioGroup1: TDBRadioGroup
          Left = 4
          Top = 361
          Width = 221
          Height = 56
          Caption = '  Integra'#231#227'o Contabil?  '
          Columns = 2
          Ctl3D = False
          DataField = 'TIPOMOVEST_INTEGRACAO'
          DataSource = dsCadastro
          Items.Strings = (
            'Sim'
            'N'#227'o')
          ParentCtl3D = False
          TabOrder = 10
          Values.Strings = (
            'F'
            'N')
        end
        object DBRadioGroup2: TDBRadioGroup
          Left = 236
          Top = 361
          Width = 224
          Height = 56
          Caption = '  Movimenta o Estoque?  '
          Columns = 2
          Ctl3D = False
          DataField = 'TIPOMOVEST_ATUALIZAESTOQUE'
          DataSource = dsCadastro
          Items.Strings = (
            'Sim'
            'N'#227'o')
          ParentCtl3D = False
          TabOrder = 11
          Values.Strings = (
            'S'
            'N')
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 408
    Top = 296
  end
  inherited dsCadastro: TDataSource
    Left = 304
    Top = 280
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'select * from TipoMovimentoEstoque Order By TipMovEst_Codigo;'
      '')
    Left = 224
    Top = 272
  end
  inherited dspCadastro: TDataSetProvider
    Left = 248
    Top = 448
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    AfterInsert = cdsCadastroAfterInsert
    Left = 48
    Top = 456
    object cdsCadastroTIPMOVEST_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'TIPMOVEST_CODIGO'
    end
    object cdsCadastroTIPMOVEST_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'TIPMOVEST_DESCRICAO'
      Size = 60
    end
    object cdsCadastroTIPMOVEST_ENTRADASAIDA: TStringField
      FieldName = 'TIPMOVEST_ENTRADASAIDA'
      Size = 7
    end
    object cdsCadastroTIPMOVEST_INFPEDIDO: TStringField
      FieldName = 'TIPMOVEST_INFPEDIDO'
      Size = 6
    end
    object cdsCadastroTIPMOVEST_INFFORNECEDOR: TStringField
      FieldName = 'TIPMOVEST_INFFORNECEDOR'
      Size = 6
    end
    object cdsCadastroTIPMOVEST_INFDOCUMENTO: TStringField
      FieldName = 'TIPMOVEST_INFDOCUMENTO'
      Size = 6
    end
    object cdsCadastroTIPMOVEST_INFVALOR: TStringField
      FieldName = 'TIPMOVEST_INFVALOR'
      Size = 6
    end
    object cdsCadastroTIPMOVEST_INFOS: TStringField
      FieldName = 'TIPMOVEST_INFOS'
      Size = 6
    end
    object cdsCadastroTIPMOVEST_GRUPO: TStringField
      FieldName = 'TIPMOVEST_GRUPO'
      Size = 1
    end
    object cdsCadastroTIPMOVEST_INFCENTROCUSTO: TStringField
      FieldName = 'TIPMOVEST_INFCENTROCUSTO'
      Size = 6
    end
    object cdsCadastroTIPMOVEST_ALTERA_VALOR_COM_VEN: TStringField
      FieldName = 'TIPMOVEST_ALTERA_VALOR_COM_VEN'
      Size = 6
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroTIPOMOVEST_ABREVIACAO: TStringField
      DisplayLabel = 'Abrevia'#231#227'o'
      FieldName = 'TIPOMOVEST_ABREVIACAO'
      Size = 10
    end
    object cdsCadastroTIPOMOVEST_ORDEM_PROC: TIntegerField
      FieldName = 'TIPOMOVEST_ORDEM_PROC'
    end
    object cdsCadastroTIPOMOVEST_INFDIGITACAO: TStringField
      FieldName = 'TIPOMOVEST_INFDIGITACAO'
      Size = 6
    end
    object cdsCadastroTIPOMOVEST_INTEGRACAO: TStringField
      FieldName = 'TIPOMOVEST_INTEGRACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroTIPOMOVEST_ATUALIZAESTOQUE: TStringField
      FieldName = 'TIPOMOVEST_ATUALIZAESTOQUE'
      FixedChar = True
      Size = 1
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 512
    Top = 448
  end
  inherited OpenDialog1: TOpenDialog
    Left = 192
    Top = 56
  end
  object dsQTipoMovEstUsuario: TDataSource
    AutoEdit = False
    DataSet = cdsQTipoMovEstUsuario
    Left = 392
    Top = 240
  end
  object QTipoMovEstUsuario: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT '
      '  TIPOMOVEST_USUARIO.TIPOMOVEST_CODIGO,'
      '  TIPOMOVEST_USUARIO.USU_CODIGO,'
      '  TIPOMOVEST_USUARIO.USUARIO_CADASTRO,'
      '  TIPOMOVEST_USUARIO.USUARIO_AUTERACAO,'
      '  TIPOMOVEST_USUARIO.USUARIO_EXCLUSAO,'
      '  TIPOMOVEST_USUARIO.DATA_CADASTRO,'
      '  TIPOMOVEST_USUARIO.DATA_EXCLUSAO,'
      '  TIPOMOVEST_USUARIO.DATA_AUTERACAO,'
      '  TIPOMOVEST_USUARIO.EXCLUIDO,'
      '  TIPOMOVEST_USUARIO.PERMISSAO'
      'FROM'
      '  TIPOMOVEST_USUARIO'
      'WHERE'
      '  TIPOMOVEST_USUARIO.TIPOMOVEST_CODIGO = :TIPMOVEST_CODIGO')
    Left = 248
    Top = 232
    ParamData = <
      item
        DataType = ftInteger
        Name = 'TIPOMOVEST_CODIGO'
        ParamType = ptUnknown
        Value = 1
      end>
  end
  object dspQTipoMovEstUsuario: TDataSetProvider
    DataSet = QTipoMovEstUsuario
    Left = 160
    Top = 416
  end
  object cdsQTipoMovEstUsuario: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'TIPOMOVEST_CODIGO'
    MasterFields = 'TIPMOVEST_CODIGO'
    MasterSource = dsCadastro
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspQTipoMovEstUsuario'
    Left = 504
    Top = 312
  end
  object QExibeTipoMovEstUsuario: TQuery
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT'
      '  USUARIO.USU_NOME,'
      '  TIPOMOVEST_USUARIO.TIPOMOVEST_CODIGO,'
      '  USUARIO.USU_CODIGO,'
      '  TIPOMOVEST_USUARIO.PERMISSAO'
      'FROM'
      '  USUARIO'
      
        '  LEFT JOIN TIPOMOVEST_USUARIO ON (TIPOMOVEST_USUARIO.USU_CODIGO' +
        ' = USUARIO.USU_CODIGO)'
      
        '                              AND(TIPOMOVEST_USUARIO.TIPOMOVEST_' +
        'CODIGO = :TIPMOVEST_CODIGO)'
      ''
      'WHERE (USUARIO.EXCLUIDO <> '#39'S'#39' OR USUARIO.EXCLUIDO IS NULL)')
    Left = 304
    Top = 176
    ParamData = <
      item
        DataType = ftInteger
        Name = 'TIPMOVEST_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
    object QExibeTipoMovEstUsuarioUSU_NOME: TStringField
      DisplayLabel = 'Usu'#225'rio'
      DisplayWidth = 50
      FieldName = 'USU_NOME'
      Origin = 'BASE.USUARIO.USU_NOME'
      Size = 22
    end
    object QExibeTipoMovEstUsuarioTIPOMOVEST_CODIGO: TIntegerField
      FieldName = 'TIPOMOVEST_CODIGO'
      Origin = 'BASE.TIPOMOVEST_USUARIO.TIPOMOVEST_CODIGO'
    end
    object QExibeTipoMovEstUsuarioUSU_CODIGO: TIntegerField
      FieldName = 'USU_CODIGO'
      Origin = 'BASE.USUARIO.USU_CODIGO'
    end
    object QExibeTipoMovEstUsuarioPERMISSAO: TStringField
      DisplayLabel = 'Permiss'#227'o'
      FieldName = 'PERMISSAO'
      Origin = 'BASE.TIPOMOVEST_USUARIO.PERMISSAO'
      FixedChar = True
      Size = 10
    end
  end
  object dsExibeTipoMovEstUsuario: TDataSource
    AutoEdit = False
    DataSet = QExibeTipoMovEstUsuario
    Left = 360
    Top = 184
  end
  object PopupMenu2: TPopupMenu
    Left = 544
    Top = 144
    object ConcederPermisso1: TMenuItem
      Caption = 'Permiss'#227'o Concedida'
      ShortCut = 121
      OnClick = ConcederPermisso1Click
    end
  end
  object QCFOP: TQuery
    DatabaseName = 'base'
    Left = 200
    Top = 192
  end
end
